home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR3.5SRC.ARC / ST / R 3.5 (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  32.0 KB  |  936 lines
  1. 100 IFPEEK(252)<>32THEN130
  2. 110 POKE152,PEEK(251)
  3. 120 NS=1:POKE252,0:GOTO240
  4. 130 POKE53280,0:POKE53281,0:PRINT"[152][147]":POKE650,128
  5. 140 IFPEEK(51976)=32THEN190
  6. 150 PRINT"[204]OADING [205]ACHINE [204]ANGUAGE"
  7. 160 ONPEEK(141)GOTO180,190
  8. 170 POKE141,1:LOAD"0:(ST/R.ML)",8,1
  9. 180 POKE141,0:LOAD"0:(ST/R.ML2)",8,1
  10. 190 OPEN5,2,3,CHR$(6):CLOSE5:POKE56,159:POKE644,159:CLR
  11. 195 OPEN5,2,3,CHR$(6)+CHR$(0):IFPEEK(140)=16THEN220
  12. 200 P=0:POKE51972,P:SYS51976
  13. 210 POKE56580,1:POKE56581,0:POKE56590,65:POKE140,16:SYS49176
  14. 220 SI=54272:FORI=SITOSI+24:POKESI,0:NEXT:POKESI+1,64
  15. 230 POKESI+4,20:POKESI+15,128:POKESI+24,15:POKESI+5,8:POKESI+6,8
  16. 240 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:SV=1:N$=CHR$(0):SF=1
  17. 250 DIMIN%(255),OT%(255),E$(51),BR$(9,9),BM(9,9),U$(12),N$(12):SI=54272:DR$="0"
  18. 280 DIMDR%(7),MD(9,9),AC(9,9):PRINT"[147][195]REATING I/O CONVERSION TABLES....":GOSUB1210
  19. 290 IFNSTHEN320
  20. 300 PRINT"[201]NSERT [198]ILE [196]ISK AND [208]RESS ANY KEY":BR=300:GOSUB7920
  21. 310 GETA$:IFA$=""THEN310
  22. 320 GOSUB330:GOTO410
  23. 330 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,NB(T):IFNB(T)=0THEN350
  24. 335 FORI=0TONB(T)-1:INPUT#1,BR$(T,I),MD(T,I),AC(T,I):NEXT
  25. 350 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  26. 360 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  27. 370 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6:CLOSE1:GOSUB7980:N1=R1:N2=R2
  28. 380 OPEN1,8,5,"0:(BBS DATA)":INPUT#1,CN,NU,LC$,LN$,LF$:CLOSE1
  29. 390 OPEN1,8,5,"0:(BBS MESS)":FORT=0TO9:IFNB(T)=0THEN400
  30. 392 FORI=0TONB(T)-1:INPUT#1,BM(T,I):NEXT
  31. 400 NEXT:CLOSE1:RB=0:RETURN
  32. 410 OPEN1,8,5,"0:(GENERAL)":INPUT#1,GF:IFGF=0THENCLOSE1:GOTO421
  33. 420 DIMGF$(GF):FORI=1TOGF:INPUT#1,GF$(I):NEXT:CLOSE1
  34. 421 OPEN1,8,5,"0:(PFILES)":INPUT#1,PF:IFPF=0THENCLOSE1:GOTO430
  35. 422 DIMPF$(PF),PD(PF):FORI=1TOPF:INPUT#1,PF$(I),PD(I):NEXT:CLOSE1
  36. 430 IFNSTHEN510
  37. 440 GOSUB3540:FORT=0TO(DR-8):AA=DR%(T)AND63:GOSUB8640:OPEN15-B,DR%(T)AND63,15,"I0:"
  38. 450 IFDR$="1"THENPRINT#15-B,"I1:"
  39. 460 NEXT:HL=16:IFMT%=3THENGOSUB8730:HL=PEEK(B1)AND16:IFHL=0THENPOKE42654,208
  40. 470 FORT=1TO2000:NEXT:GOTO500
  41. 480 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$"[195]ARRIER [196]ROPPED![152]"F$:CLOSE1
  42. 490 IFLGTHENGOSUB4800:GOSUB2850:GOSUB2970
  43. 500 SY=0:P=0:POKE51972,P:SYS51976:BS=255:LG=0:CG=0:UL$=""
  44. 510 F$=CHR$(13):IFMT%=6THENB3=56334:B4=56332
  45. 520 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":IFNSTHEN7460
  46. 530 BR=300:GOSUB7920:GOSUB8730
  47. 540 PRINT"[147][215]AITING FOR A CALL":UL$=""
  48. 550 PRINT"[211]YSOP          : "SY$
  49. 560 PRINT"[208]REVIOUS CALLER: "LC$
  50. 570 PRINT"[212]IME LOGGED ON : "LN$
  51. 580 PRINT"[212]IME LOGGED OFF: "LF$
  52. 590 PRINT"[211]YSOP [193]VAILABLE: "MID$("[206]O [217]ES",SV*3+1,3)
  53. 600 PRINT"[206]UMBER OF [213]SERS:"NU
  54. 610 PRINT"[206]EW USERS TODAY:"NT
  55. 620 PRINT"[212]OTAL [195]ALLS    :"CN
  56. 630 PRINT"[197]-MAIL TO [211]YSOP:"SE
  57. 650 PRINT"[198]1 TAKES [211]YSOP [195]ONTROL."
  58. 660 PRINT"[198]3 [199]IVES [195]ARRIER.":POKE668,PEEK(667)
  59. 670 GETA$:IFA$="[133]"THEN3620
  60. 680 IFA$="[134]"THENRD=0:GOTO755
  61. 690 IFMT%<>3THEN730
  62. 695 RD=PEEK(B1)AND8:IFRDTHEN740
  63. 697 TI$="000000"
  64. 700 GET#5,E$:IFE$=""THENGETE$:IFE$=""THEN717
  65. 701 IFE$="[133]"THEN540
  66. 702 T=VAL(CHR$(ASC(E$)AND127))
  67. 703 PRINTT"    ";ASC(E$):IF(T=3)THEN770
  68. 705 IFT=1THENBR=300:RD=0:GOSUB7920:GOTO760
  69. 710 IFT=5THENBR=1200:RD=0:GOSUB7920:GOTO760
  70. 715 IFT=10THENBR=2400:RD=0:GOSUB7920:GOTO760
  71. 717 IFVAL(TI$)>15THEN770
  72. 720 GOTO700
  73. 730 RD=PEEK(B1)AND8
  74. 740 T1$="11:39:28.7 PM":SYS51982,T1$:PRINTDA$" "T1$" [145]":LH=VAL(LEFT$(T1$,2))
  75. 750 LM=VAL(MID$(T1$,4,2)):IFRD=8THEN670
  76. 755 IFMT%=3THENPRINT#5,"[193][212][193]":TI$="000000":GOTO700
  77. 760 PRINT"[210]ING DETECTED!"F$:GOSUB8800:FORI=1TO3000:NEXT:GOSUB1420:IFCD=0THEN780
  78. 770 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,"[206]O CARRIER FOUND.[152]"F$:CLOSE1:GOTO500
  79. 780 P$="[195]ONNECT AT 300 BAUD!":IFBR=1200THENP$="[195]ONNECT AT 1200 BAUD!"
  80. 790 POKE668,PEEK(667):GOSUB1480
  81. 800 FORT=1TO25:P$=CHR$(10):GOSUB1480:NEXT
  82. 810 P$="[208][210][197][211][211] [[210][197][212][213][210][206]]:"+F$+":":GOSUB1490:L=1:GOSUB1630
  83. 834 P$=F$+"[208][210][197][211][211] [[196][197][204][197][212][197]/[194][193][195][203][211][208][193][195][197]]"+F$+":[166]":PRINT"[164]";:GOSUB1490
  84. 836 GET#5,A$:IFA$=""THENGETA$:IFA$=""THENGOSUB1420:IFCD=0THEN836
  85. 838 IFA$=CHR$(20)THENCG=1:P$=F$+F$+"[195][129][207][158][204][207][210][156]/[199][154][210][159][193][208][150][201][129][195][158] MODE!!":GOSUB1480
  86. 840 GOSUB5020:IFCDTHEN480
  87. 845 IFLC=5THEN500
  88. 850 P$=F$+"[150][204]AST CALLER  : "+LC$:GOSUB1480
  89. 860 P$="[158][212]IME ON      : "+LN$:GOSUB1480
  90. 870 P$="[153][212]IME OFF     : "+LF$:GOSUB1480:GOSUB5270
  91. 880 IFAC=0THENGOSUB2780:GOTO500
  92. 890 BS$=BR$(0,1):BM=BM(0,1):MD=MD(0,1):NB=NB(0):RB=0:GOSUB5010:IFCDTHEN480
  93. 900 E$=CHR$(ASC(L$+N$)AND127)
  94. 905 I=VAL(L$):IF(I<1ORI>9)ANDL$<>"0"THEN920
  95. 910 SC=0:GOSUB9080:IFSC=0THENGOSUB4120
  96. 920 IFASC(E$+N$)>96THENE$=CHR$(ASC(E$)-32)
  97. 930 GOSUB8410:UL$=UL$+"[205]AIN-"+E$+F$
  98. 940 ON-(E$="Y")-2*(E$="T")-3*(E$="E")-4*(E$="D")GOSUB1920,4790,6250,7320
  99. 950 SA=0:ON-(E$="F")-2*(E$="L")-3*(E$="S")-4*(E$="Q")GOSUB6190,1130,9110,8540
  100. 960 ON-(E$="X")-2*(E$="G")-3*(E$="P")-4*(E$="N")GOSUB2720,8050,8880,6790
  101. 990 IFE$="I"THENFI$="(BBS EQP)":GOSUB1850
  102. 1000 IFE$="A"THENFI$="(ANNOUNCE)":GOSUB1850
  103. 1010 IFE$="O"THENFI$="(BBS NUMBERS)":GOSUB1850
  104. 1020 IFE$="R"THENFI$="(BBS NAME)":GOSUB1850
  105. 1030 IFE$="H"THENFI$="(HELP)":GOSUB1850
  106. 1040 IFE$="X"THEN500
  107. 1050 IFE$="?"THENMM=1:GOTO1090
  108. 1060 IFE$="%"AND(A1AND32)THENGOSUB6920
  109. 1070 IFCDTHEN480
  110. 1080 GOTO890
  111. 1090 P$=" [147]"+DC$+F$+"[156]     ---=*]>  [205][193][201][206]   [205][197][206][213]  <[*=---"+F$+DC$:GOSUB1480
  112. 1100 IFA$>""THENL$=A$:MM=0:GOTO900
  113. 1110 GOSUB4830:IFA$>""THENL$=A$:MM=0:GOTO900
  114. 1120 MM=0:GOTO890
  115. 1130 IFNB(SA)=0THENP$=F$+"[212]HERE ARE NO SUB-BOARDS CREATED!":GOSUB1480:RETURN
  116. 1140 P$=" [147][217]OUR CURRENT ACCESS LEVEL PERMITS YOU":GOSUB1480
  117. 1150 P$="TO USE THE FOLLOWING BOARDS:"+F$:GOSUB1480
  118. 1160 FORT=0TO9:AA=0:FORLC=0TONB(T)-1:IFAC<AC(T,LC)ORAC(T,LC)=0THEN1180
  119. 1170 IFAA=0THENAA=1:P$="[129][201]N [211]ET #"+MID$(STR$(T),2)+".":GOSUB1480
  120. 1175 GOSUB1190
  121. 1180 NEXT:NEXT:RETURN
  122. 1190 P$="[150] "+MID$(STR$(LC),2)+". "+BR$(T,LC)
  123. 1192 P$=P$+LEFT$("              ",14-LEN(BR$(T,LC)))
  124. 1200 P$=P$+"[205]SGS POSTED: "+STR$(BM(T,LC)):GOSUB1480:RETURN
  125. 1210 FORI=1TO64:OT%(I)=I:NEXT:OT%(20)=8:OT%(160)=32
  126. 1220 OT%(12)=12:FORI=65TO90:OT%(I)=I+32:NEXT:OT%(34)=ASC("'")
  127. 1230 FORI=91TO95:OT%(I)=I:NEXT:FORI=193TO218:OT%(I)=I-128:NEXT
  128. 1240 OT%(5)=0:OT%(8)=0:OT%(9)=0:OT%(14)=0:OT%(17)=0:OT%(18)=0:OT%(28)=0
  129. 1250 OT%(29)=0:OT%(30)=0:OT%(31)=0
  130. 1260 FORI=0TO255:T=OT%(I):IFT<>0THENIN%(T)=I:IN%(T+128)=I
  131. 1270 NEXT:IN%(160)=32:IN%(32)=32:IN%(127)=20:RETURN
  132. 1280 TI$="000000":A$=""
  133. 1290 GOSUB1420:IFCDTHENRETURN
  134. 1300 GOSUB4800:IFSY=0ANDCO>240THENCD=1:RETURN
  135. 1310 GETZ$:IFSY=0THENGET#5,A$
  136. 1312 IFA$=CHR$(10)ANDLEN(F$)=1THENF$=F$+A$
  137. 1315 IFA$=CHR$(10)THEN1310
  138. 1320 IFZ$="[133]"THENGOSUB3620:RETURN
  139. 1330 IFZ$="[134]"THENGOSUB1960:TI$="000000":RETURN
  140. 1340 IFZ$="[140]"THENCD=1:RETURN
  141. 1350 IFZ$<>""ORA$<>""THEN1390
  142. 1360 IFVAL(TI$)<400THEN1290
  143. 1370 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  144. 1380 CD=1:UL$="":RETURN
  145. 1390 IFA$=""ORZ$=""THENGOSUB1410
  146. 1400 RETURN
  147. 1410 POKESI+4,21:POKESI+4,20:RETURN
  148. 1420 CD=0:IFSYTHENRETURN
  149. 1430 IF(PEEK(B1)AND16)<>HLTHENRETURN
  150. 1440 TI$="000000"
  151. 1450 IF(PEEK(B1)AND16)<>HLTHENRETURN
  152. 1460 IFVAL(TI$)>5THENCD=1:RETURN
  153. 1470 GOTO1450
  154. 1480 P$=P$+F$
  155. 1490 IFL=55THENPRINT#4,P$;:RETURN
  156. 1500 IFSYTHENPRINTP$;:GOTO1540
  157. 1510 IFCGTHENPRINTP$;:PRINT#5,P$;:GOTO1540
  158. 1520 FORI=1TOLEN(P$):A$=MID$(P$,I,1):IFA$=""THENGOSUB1410
  159. 1530 PRINTA$;:PRINT#5,CHR$(OT%(ASC(A$)));:NEXT
  160. 1540 I=PEEK(673)AND1:GET#5,A$:IFA$=""THENGETA$
  161. 1550 IFA$=CHR$(160)THENA$=" "
  162. 1560 IF(A$>""ANDMM)ORA$=" "ORA$="/"ORCDTHEN1620
  163. 1570 IFA$=""THEN1600
  164. 1580 IFITHEN1540
  165. 1590 RETURN
  166. 1600 GET#5,A$:IFA$=""THENGETA$
  167. 1610 IFA$=""THEN1600
  168. 1620 ONPEEK(673)AND1GOTO1620:RETURN
  169. 1630 L$="":FORI=1TOL:PRINT"[164][157]";
  170. 1640 GOSUB1280:IFCDTHENRETURN
  171. 1650 IFZ$<>""THENT=ASC(Z$):A$=Z$:GOTO1690
  172. 1660 IFCGTHENT=ASC(A$+N$):GOTO1680
  173. 1670 T=IN%(ASC(A$+N$)):A$=CHR$(T)
  174. 1680 IFT=0THEN1640
  175. 1690 IFT=34THENT=39:A$="'"
  176. 1700 IFT=20ANDL$<>""THENL$=LEFT$(L$,LEN(L$)-1):I=I-1:GOTO1760
  177. 1710 IFT=20ANDL$=""THEN1640
  178. 1720 IFT=13ANDSYTHENPRINT" ":RETURN
  179. 1730 IFT=13THENPRINT" ":PRINT#5,F$;:RETURN
  180. 1740 IFT=10THEN1640
  181. 1750 IFLEN(L$)=38THENP$="":GOSUB1490:GOTO1640
  182. 1760 IFI=>30AND(ASC(A$+N$)AND127)=32ANDMMTHENT=13:GOTO1720
  183. 1770 IFSYTHENPRINTA$;:GOTO1830
  184. 1780 IF(T=20)ANDCGANDECTHENPRINTA$;:PRINT#5,A$;:GOTO1830
  185. 1790 IFT=20ANDECTHENPRINTA$;:PRINT#5,CHR$(OT%(ASC(A$)));:GOTO1830
  186. 1800 IFECTHENPRINTA$;:PRINT#5,"-";:GOTO1830
  187. 1810 IFCGTHENPRINTA$;:PRINT#5,A$;:GOTO1830
  188. 1820 PRINTA$;:PRINT#5,CHR$(OT%(ASC(A$)));
  189. 1830 IFT=20THEN1640
  190. 1840 L$=L$+A$:NEXT:T=13:EC=0:GOTO1720
  191. 1850 P$="":OPEN1,8,5,"0:"+FI$:B=0:GOSUB3420:IFER$>"01"THEN1880
  192. 1860 INPUT#1,P$:U=ST:GOSUB1480:IFCDORA$=" "ORA$="/"THEN1880
  193. 1870 IF(UAND64)=0THEN1860
  194. 1880 CLOSE1:RETURN
  195. 1890 P$=F$+"[197]NTER [193]CCESS LEVEL: ":GOSUB1490:L=5:GOSUB1630:IFCDTHENRETURN
  196. 1900 IFVAL(L$)<0ORVAL(L$)>65535ORL$=""THENRETURN
  197. 1910 L=VAL(L$):A2=INT(L/256):A1=L-A2*256:A$=MID$(STR$(L)+"     ",2,5):RETURN
  198. 1920 IFSV<>1THENP$=F$+F$+SY$+" IS NOT AVAILABLE RIGHT NOW.":GOSUB1480:RETURN
  199. 1930 P$="[195]ALLING "+SY$+"....":GOSUB1480:FORI=1TO20:GETA$:IFA$="[134]"THEN1960
  200. 1940 GOSUB1410:FORT=1TO600:NEXT:NEXT
  201. 1950 P$="[212]RY AGAIN LATER....":GOSUB1480:RETURN
  202. 1960 P$=F$+F$+SY$+", CHATTING WITH "+U$(1)+F$:GOSUB1480
  203. 1970 PRINT"[164][157]";:GETZ$:GET#5,A$:GOSUB1420
  204. 1980 IFCG=0THENA$=CHR$(IN%(ASC(A$+N$)))
  205. 1990 IFZ$="[134]"ORCDTHENP$=F$+SY$+" HAS RETURNED TO "+BD$+".":GOSUB1480:RETURN
  206. 2000 IFZ$="[133]"THENGOSUB3620
  207. 2010 IFZ$="[134]"THENGOSUB3620
  208. 2020 IFA$=CHR$(0)ORA$=""THENA$=Z$
  209. 2030 IFA$=""THEN1970
  210. 2040 IFA$=""THENGOSUB1410
  211. 2050 IFA$=CHR$(13)THENPRINT" ";:PRINT#5,CHR$(10);
  212. 2060 PRINT" [157]";:IFCGTHENPRINTA$;:PRINT#5,A$;:GOTO1970
  213. 2070 PRINTA$;:PRINT#5,CHR$(OT%(ASC(A$)));:GOTO1970
  214. 2080 AN=0
  215. 2090 P$=F$+"  [212]O:":GOSUB1490:L=20:GOSUB1630:TU$=L$:IFCDTHENRETURN
  216. 2100 P$="[211]UBJ:":GOSUB1490:L=30:GOSUB1630:SU$=L$:IFCDTHENRETURN
  217. 2110 IFRB=0THEN2130
  218. 2120 P$="[217]OUR CHARACTER NAME:":GOSUB1490:L=20:GOSUB1630:U$(0)=L$:GOTO2140
  219. 2130 U$(0)=U$(1)
  220. 2140 P$=F$+"[205]AXIMUM OF 50 LINES.  [197]NTER /H FOR":GOSUB1480
  221. 2150 P$="HELP ON A [194][204][193][206][203] LINE."+F$:GOSUB1480
  222. 2160 P$="<==== [205]AX. [204]INE [204]ENGTH - 38 [195]HAR ====>"+F$:GOSUB1480
  223. 2170 GOSUB3440:DT$=M$+STR$(DT)+" "+TM$
  224. 2180 FORLC=1TO50:MM=1
  225. 2190 IFLC>50THEN2240
  226. 2200 L=39:GOSUB1630:MM=0:IFCDTHENRETURN
  227. 2210 IFLEFT$(L$,1)="/"THEN2260
  228. 2220 E$(LC)=L$:IFLC=45THENP$="-----> [198]IVE LINES LEFT.":GOSUB1480
  229. 2230 NEXTLC
  230. 2240 P$=F$+"[197]NTER EDIT COMMAND OR 'S' TO SAVE:":GOSUB1480
  231. 2250 L=3:GOSUB1630:IFCDTHENRETURN
  232. 2260 E$=CHR$(ASC(MID$(L$,2,1)+N$)AND127):IFE$=N$THEN2190
  233. 2270 ON-(E$="A")-2*(E$="E")-3*(E$="L")-4*(E$="S")GOTO2370,2410,2500,2520
  234. 2280 ON-(E$="D")-2*(E$="I")-3*(E$="H")GOTO2330,2350,2310
  235. 2290 IF(CG)OR(SY)THENP$="[145]     [157][157][157][157][157]":GOSUB1490
  236. 2300 GOTO2190
  237. 2310 P$=F$+"/[193] - [193]BORT /[197]XX - [197]DIT   /[204] - [204]IST"+F$+"/[211] - [211]AVE  /[196]XX - [196]ELETE "
  238. 2320 P$=P$+"/[200] - [200]ELP"+F$+"/[201]XX - [201]NSERT LINE [194][197][198][207][210][197] XX"+F$:GOSUB1480:GOTO2190
  239. 2330 AA=VAL(MID$(L$,3)):IFAA>0ANDAA<LCTHEN2340
  240. 2332 P$="[206]O DELETETION.":GOSUB1480:GOTO2190
  241. 2340 FORI=AATOLC-1:E$(I)=E$(I+1):NEXT:LC=LC-1:GOTO2290
  242. 2350 AA=VAL(MID$(L$,3)):IFAA=0ORLC=>50THENP$="[206]O INSERTION.":GOSUB1480:GOTO2190
  243. 2360 FORI=LC-1TOAASTEP-1:E$(I+1)=E$(I):NEXT:E$(AA)="":LC=LC+1:GOTO2290
  244. 2370 P$="[193]BORT LETTER (Y/N):":GOSUB1490
  245. 2380 L=1:GOSUB1630:IFCDTHENRETURN
  246. 2390 IFL$="Y"ORL$="[217]"THENGOSUB3370:SM=0:RETURN
  247. 2400 GOTO2190
  248. 2410 AA=VAL(MID$(L$,3)):IFAA>0ANDAA<LCTHEN2460
  249. 2420 FORT=1TOLC-1:P$=STR$(T)+":"+F$+E$(T):GOSUB1480:NEXT
  250. 2430 P$=F$+"[197]DIT [204]INE #:":GOSUB1490
  251. 2440 L=2:GOSUB1630:IFCDTHENRETURN
  252. 2450 AA=VAL(L$):IFAA<1ORAA>LC-1THENP$="[206]ON-EXISTANT LINE #.":GOSUB1480:GOTO2190
  253. 2460 P$="[207]LD LINE:"+F$+E$(AA):GOSUB1480
  254. 2470 P$="[206]EW LINE:":GOSUB1480
  255. 2480 L=39:GOSUB1630:IFCDTHENRETURN
  256. 2490 E$(AA)=L$:GOTO2190
  257. 2500 FORT=1TOLC-1:P$=E$(T)
  258. 2510 GOSUB1480:NEXT:GOTO2190
  259. 2520 IFU<>65THEN2550
  260. 2530 TU$=US$:IFANTHENTU$="[193]NONYMOUS"
  261. 2540 GOTO2590
  262. 2550 AA=MD:GOSUB8660
  263. 2560 BM=BM+1:IFBM>20THENPRINT#15-B,"S"+DR$+":("+BS$+STR$(BM-20)
  264. 2570 IFSM=1THENAN=R:GOTO2650
  265. 2580 P$="[217]OUR MESSAGE NUMBER IS: "+STR$(BM):GOSUB1480:IFSA=0ANDBA=0THEN2610
  266. 2590 AN=0:P$="[193]NONYMOUS? (Y/N):":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  267. 2600 AN=-(L$="Y"ORL$="[217]")
  268. 2610 P$="[211]AVING MESSAGE....":GOSUB1480
  269. 2620 IFU=65THENOPEN1,MDAND127,5,DR$+":("+BS$+STR$(M)+",A":GOSUB3420
  270. 2630 IFU=65ANDE=62THENU=0:CLOSE1:OPEN1,MDAND127,5,DR$+":("+BS$+STR$(M)+",S,W":GOTO2660
  271. 2640 IFU=65THEN2660
  272. 2650 OPEN1,MDAND127,5,"@"+DR$+":("+BS$+STR$(BM)+",S,W"
  273. 2660 PRINT#1,AN
  274. 2670 PRINT#1,Q$U$(0)" (#"R$")":PRINT#1,Q$TU$:PRINT#1,Q$SU$:PRINT#1,Q$DT$
  275. 2680 FORI=1TOLC-1:PRINT#1,Q$E$(I):NEXT:PRINT#1,Q$"\":CLOSE1
  276. 2690 IFSMORU=65ORU=76THENRETURN
  277. 2700 BM(SA,BA)=BM:OPEN1,8,5,"@0:(BBS MESS),S,W":FORT=0TO9:IFNB(T)=0THEN2715
  278. 2710 FORI=0TONB(T)-1:PRINT#1,BM(T,I):NEXT
  279. 2715 NEXT:CLOSE1:GOSUB3370:RETURN
  280. 2720 P$=F$+"[204]OG-OFF NOW? (Y/N):":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  281. 2730 IFL$<>"Y"ANDL$<>"[217]"THENE$="":RETURN
  282. 2740 IFVAL(U$(5))=0THEN2770
  283. 2750 P$="[217]OU HAVE "+U$(5)+" LETTERS."+F$+"[196]ELETE MAIL NOW? (Y/N): ":GOSUB1490
  284. 2760 L=1:GOSUB1630:IFCDTHENRETURN
  285. 2770 LC=0:FI$="(LOG OFF)":GOSUB1850
  286. 2780 P$=F$:GOSUB1480:P$=DC$:GOSUB1480:P$=SY$+" THANKS YOU FOR CALLING,"
  287. 2790 GOSUB1480:P$="AND HOPES THAT YOU WILL CALL AGAIN!":GOSUB1480
  288. 2800 P$=DC$:GOSUB1480
  289. 2810 P$=F$+"[217]OU SIGNED ON AT : "+LT$:GOSUB1480:GOSUB3440
  290. 2820 P$="[154][217]OU SIGNED OFF AT: "+TM$:GOSUB1480:GOSUB4800
  291. 2830 P$="[159][195]ONNECT [212]IME     :"+STR$(CO)+" MINUTES":GOSUB1480
  292. 2840 P$=F$+"   [212]HIS [194][194][211] IS AN [211][212]/[210] V3.5 SYSTEM.[152]  ":GOSUB1480
  293. 2850 IFBR<>1200THENBR=300:GOSUB7920
  294. 2860 GOSUB8730:IFLC=5THENRETURN
  295. 2870 OPEN1,8,5,"0:(T.CALLERS),A":PRINT#1,Q$U$(1)" (#"R$")"
  296. 2880 PRINT#1,Q$"[204]OG-ON : "LT$:PRINT#1,Q$"[204]OG-OFF: "TM$
  297. 2890 PRINT#1,Q$"[195]ONNECT [212]IME:"CO"MIN."
  298. 2900 IFCDTHENPRINT#1,Q$"[195]ARRIER DROPPED!  [211]HAME, SHAME."
  299. 2910 PRINT#1,Q$" ":CLOSE1:LC$=U$(1):LN$=LT$:LF$=TM$:E$="X":IFCDTHENRETURN
  300. 2920 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$"[204]OG OFF AT "TM$"[152]"
  301. 2930 PRINT#1,"[195]ONNECT TIME:"STR$(CO)" MINS."F$:CLOSE1:UL$=""
  302. 2940 OPEN1,8,5,"@0:(BBS DATA),S,W":PRINT#1,CN:PRINT#1,NU:PRINT#1,Q$U$(1)
  303. 2945 PRINT#1,Q$LN$:PRINT#1,Q$LF$:CLOSE1
  304. 2950 IFL$<>"Y"ANDL$<>"[217]"THEN2970
  305. 2960 FORT=1TOVAL(U$(5)):PRINT#15,"S0:("+R$+STR$(T):NEXT:U$(5)="0"
  306. 2970 OPEN3,RF,3,RF$:RC=R:GOSUB3380:U$(11)=M$+MID$(STR$(DT),2)
  307. 2980 U$(8)=MID$(STR$(CG),2):GOSUB8480:E$="X":CLOSE3
  308. 2982 OPEN3,8,3,"0:(HIGH MESS)":RC=R
  309. 2984 GOSUB7980:GOSUB3390:PRINT#3,HM$:GOSUB9300:RC=1:GOSUB7980:GOSUB3390
  310. 2990 CLOSE3:BR=300:GOSUB7920:RETURN
  311. 3000 SC=0:GOSUB4380:IFER$>"01"THENCLOSE1:RETURN
  312. 3010 IFMC=0THENP$=" [147]":GOSUB1490
  313. 3020 IFMCTHENP$=F$+F$+F$:GOSUB1480
  314. 3030 P$="[205]SG#"+MID$(STR$(M),2)+"------>"+BS$:GOSUB1480
  315. 3040 P$=F$+"  [212]O:"+TU$:GOSUB1480:IFANTHENE$="[193]NONYMOUS":GOTO3070
  316. 3050 E$=US$:IFRB=0THEN3070
  317. 3060 IFRIGHT$(E$,1)<>" "THENE$=LEFT$(E$,LEN(E$)-1):GOTO3060
  318. 3070 P$="[198]ROM:"+E$:GOSUB1480
  319. 3080 P$="[196]ATE:"+DT$:GOSUB1480
  320. 3090 P$="[211]UBJ:"+SU$+F$:GOSUB1480
  321. 3100 FORT=1TO50:P$=E$(T):IFP$="\"THENT=56:GOTO3130
  322. 3110 GOSUB1480:IFA$=" "THENT=56
  323. 3120 IFA$="/"THENCLOSE1:U=64:RETURN
  324. 3130 NEXT:P$=DC$:GOSUB1480
  325. 3140 P$="[205]ESSAGE SENT BY: "+E$:GOSUB1480
  326. 3150 IFUAND64THENRETURN
  327. 3160 GOSUB4400:GOTO3040
  328. 3170 IFMCTHEN3370
  329. 3180 A$=STR$(M+S):IFM+S=0ORM+S>BMTHENA$="[209]UIT"
  330. 3190 P$=F$+"[210]ETURN="+A$+":[204]AST MSG READ="+STR$(M)+":[209] - [209]UIT":GOSUB1480
  331. 3200 P$="[210] - [210]ESPOND [197] - SEND [197]-MAIL ":GOSUB1490
  332. 3210 P$="":IFA1AND32THENP$="[208] - [208]RINT"
  333. 3220 GOSUB1480
  334. 3230 L=((SA*10)+BA)*2+1
  335. 3240 IFASC(MID$(HM$,L,1)+N$)+256*ASC(MID$(HM$,L+1,1)+N$)=>MTHEN3270
  336. 3250 RC=M:GOSUB7970:A$=CHR$(LO)+CHR$(HI)
  337. 3260 HM$=LEFT$(HM$,L-1)+A$+RIGHT$(HM$,199-L)
  338. 3270 GOSUB4990:P$=F$+"[153][194][210]"+MID$(STR$(BA),2)+":":GOSUB1490:L=3:GOSUB1630:IFCDTHENRETURN
  339. 3280 IFL$="P"ORL$="[208]"AND(A1AND32)THENL=55:OPEN4,4,7:GOSUB3000:L=0:CLOSE4
  340. 3290 IFL$=""ORL$="Q"ORL$="[209]"THEN3370
  341. 3300 IFL$="R"ORL$="[210]"THENU=65:GOSUB2110:U=0:GOTO3370
  342. 3310 L=4:IFL$<>"E"ANDL$<>"[197]"THEN3350
  343. 3320 L$=RIGHT$(US$,L):IFVAL(L$)=0THENL=L-1:GOTO3320
  344. 3330 L$=LEFT$(L$,LEN(L$)-1)
  345. 3340 U=76:GOSUB6400:U=0:BM=BM(SA,BA):BS$=BR$(SA,BA):MD=MD(SA,BA):AN=0:GOTO3370
  346. 3350 T=VAL(L$):IFT<1ORT>BMTHEN3170
  347. 3360 M=T-S
  348. 3370 US$="":TU$="":SU$="":FORT=1TO51:E$(T)="":NEXT:DT$="":E$(1)="\":RETURN
  349. 3380 GOSUB7980:AA=RF:GOSUB8640
  350. 3390 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB3420:NEXT
  351. 3400 GOSUB3420:IFER$<"20"ORER$="50"THENRETURN
  352. 3410 PRINT"[197]RROR IN (USERFILE)!":GOSUB8730:STOP
  353. 3420 ES$="":GOSUB3430:ER$=LEFT$(ES$,2):RETURN
  354. 3430 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO3430:RETURN
  355. 3440 T1$="10:57:56.5 PM":SYS51982,T1$:TM$=T1$+""
  356. 3450 CT=VAL(LEFT$(TM$,2)):MI=VAL(MID$(TM$,4,2))
  357. 3500 IFCT<>12ANDRIGHT$(TM$,2)<>"AM"THENC2=1:GOTO3530
  358. 3510 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  359. 3520 IFC2THENC2=0:NT=0:IFSFTHENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  360. 3530 DA$=M$+STR$(DT):RETURN
  361. 3540 INPUT"[147][205]ONTH:";M$:INPUT"[196]ATE :";DT:M$=LEFT$(M$,3)
  362. 3550 DA$=M$+STR$(DT):IFPEEK(139)=37THENRETURN
  363. 3560 PRINT"[213]SE MILITARY TIME:":INPUT"[200]OUR :";H:INPUT"[205]IN. :";MT:POKE139,37
  364. 3570 MT=MT+INT(MT/10)*6
  365. 3580 IFH>12THENA$="PM":H=H-12:GOTO3580
  366. 3590 IFH>9THENH=H+6
  367. 3600 IFA$="PM"THENH=H+128
  368. 3610 POKE56331,H:POKE56329,0:POKE56330,MT:POKE56328,0:RETURN
  369. 3620 PRINT"[147][211][217][211][207][208] MENU"
  370. 3630 IFRD=8THENPRINT"1 - [210]UN THROUGH PROGRAM"
  371. 3640 PRINT"2 - [211]ET [212]IME"
  372. 3650 PRINT"3 - [214]ALIDATE USER"
  373. 3660 IFRD=8THENPRINT"4 - [193]WAIT CALL"
  374. 3670 IFRD=8THENPRINT"5 - [210]EAD FEEDBACK AND MESSAGES"
  375. 3680 PRINT"6 - [212]OGGLE [211]YSOP AVAILABILITY:"MID$("[206]O [217]ES",SV*3+1,3)
  376. 3690 PRINT"7 - [197]XIT [194][194][211]"
  377. 3700 PRINT"8 - [210]EPLACE '-DELETED-' USER:"MID$("[206]O [217]ES",NW*3+1,3)
  378. 3710 IFRD=0THENPRINT"9 - [210]AISE USER ACCESS LEVEL"
  379. 3720 PRINT"[193] - [197]XTENDED COMMANDS"
  380. 3730 IFRD=0THENPRINT"[194] - [210]ETURN USER TO SYSTEM"
  381. 3740 PRINT"[195] - [211]CRATCH (USER LOG): "MID$("[206]O [217]ES",SF*3+1,3)
  382. 3750 IFMT%=3THENPRINT"[196] - [193]NSWER CALL [206][207][215]"
  383. 3760 GETA$:IFA$=""THEN3760
  384. 3770 IFA$="1"ANDRD=8THENSY=1:RD=0:GOTO780
  385. 3780 IFA$="2"THENPOKE139,128:GOSUB3540
  386. 3790 IFA$="3"THENSY=SY+1:GOSUB5810:SY=SY-1
  387. 3800 IFA$="4"ANDRD=8THENSY=0:GOTO540
  388. 3810 IFA$="5"ANDRD=8THENSY=1:T=0:I=0:AC=65535:U$(1)=SY$:GOSUB4120:GOSUB8140
  389. 3820 IFA$="6"THENSV=1-SV:GOTO3620
  390. 3830 IFA$="7"THENINPUT"[217]OU SURE? (Y/N)";A$:IFA$="Y"THENSYS65511:END
  391. 3840 IFA$="8"THENNW=1-NW
  392. 3850 IFA$="9"ANDRD=0THENGOSUB1890:U$(3)=A$:AC=L
  393. 3860 IFA$="A"THENSY=SY+1:GOSUB6950:SY=SY-1
  394. 3870 IFA$="B"ANDRD=0THENTI$="000000":RETURN
  395. 3880 IFA$="C"THENSF=1-SF:GOTO3620
  396. 3890 IFA$="D"ANDMT%=3THEN700
  397. 3900 GOTO3620
  398. 3910 P$=F$+"[217]OU ARE NOW ENTERING: "+BS$:GOSUB1480
  399. 3920 BM=BM(SA,BA):P$="[212]HERE ARE"+STR$(BM)+" MESSAGES ACTIVE.":GOSUB1480
  400. 3930 IFMCTHENRETURN
  401. 3940 GOSUB4990:P$=F$+"[153][194]"+MID$(STR$(SA),2)+";"+MID$(STR$(BA),2)+":"
  402. 3950 GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  403. 3960 IFL$=""THEN3930
  404. 3970 E$=CHR$(ASC(L$)AND127)
  405. 3980 GOSUB8410:UL$=UL$+"[194]ULL"+STR$(BA)+"-"+E$+CHR$(13)
  406. 3990 IFE$="F"ORE$="R"THENGOSUB4310:E$=""
  407. 3995 IFE$="B"THENGOSUB9060:IFSC=0THEN4120
  408. 4000 IFE$="+"THENT=BA+1:I=SA:IFT<NBTHEN4120
  409. 4010 IFE$="?"THEN4210
  410. 4020 IFE$="-"THENT=BA-1:I=SA:IFT=>0THEN4120
  411. 4030 IFE$="P"THENSM=0:GOSUB2080:E$="":IFCDTHENRETURN
  412. 4040 IFE$="Q"THENE$="":RETURN
  413. 4050 IFE$="N"THENM1=BA:M2=BA:QT=SA:MC=2:GOSUB8560
  414. 4060 IFE$="A"THENM1=1:M2=BM:QT=SA:GOTO4190
  415. 4070 ON-(E$="S")-2*(E$="L")GOSUB4500,1130
  416. 4080 IFE$="C"THENGOSUB1920
  417. 4090 IFVAL(E$)<0ORVAL(E$)>NBTHEN3930
  418. 4100 I=SA:T=VAL(E$):IFT<0ORT>NB-1THEN3930
  419. 4105 IFE$<>"0"ANDT=0THEN3930
  420. 4120 SC=1
  421. 4130 IFAC=>AC(I,T)ANDAC(I,T)>0THENSC=0
  422. 4140 IFMCTHENRETURN
  423. 4170 IFSCTHEN3940
  424. 4180 BS$=BR$(I,T):BA=T:SA=I:MD=MD(I,T):NB=NB(I):RB=0:IFI=9THENRB=1
  425. 4185 GOTO3910
  426. 4190 IFM1<BM-19THENM1=BM-19
  427. 4200 MC=1:S=MC:GOSUB4350:MC=0:GOTO3930
  428. 4210 P$=" [147][150][194]ULLETIN LEVEL COMMANDS ARE:"+F$:GOSUB1480
  429. 4220 IFA$=" "THEN3930
  430. 4230 Z$=MID$(STR$(NB(SA)-1),2)
  431. 4240 P$="[0-"+Z$+"] [211]UB-BOARDS     ":GOSUB1480:IFA$=" "THEN3930
  432. 4250 P$="[129][204] - LIST BOARDS      [208] - [208]OST MESSAGE":GOSUB1480:IFA$=" "THEN3930
  433. 4260 P$="[158][209] - [210]ETURN TO MAIN   [210] - [210]EVERSE READ":GOSUB1480:IFA$=" "THEN3930
  434. 4270 P$="[153][211] - [211]CAN [205]ESSAGES    [198] - [198]ORWARD READ":GOSUB1480:IFA$=" "THEN3930
  435. 4280 P$="[154]+ - [211]TEP UP          - - [211]TEP DOWN   ":GOSUB1480:IFA$=" "THEN3930
  436. 4290 P$="[156][195] - [195]HAT WITH [211]YS[207]P  [206] - READ [206]EW    ":GOSUB1480
  437. 4300 P$="[193] - READ [193]LL MSGS    [194] - [195]HANGE [211]ET  ":GOSUB1480:GOTO3930
  438. 4310 IFBM=0THENP$="[206]O MESSAGES ON FILE.":GOSUB1480:RETURN
  439. 4320 S=1:M1=BM-19:M2=BM:IFE$="R"THENS=-1:M1=BM:M2=BM-19
  440. 4330 IFM1<1THENM1=1
  441. 4340 IFM2<1THENM2=1
  442. 4350 FORM=M1TOM2STEPS:GOSUB3000:IFCDOR(MCANDA$="/")THENRETURN
  443. 4360 GOSUB3170:IFCDORL$="Q"ORL$="[209]"THENRETURN
  444. 4370 NEXT:RETURN
  445. 4380 AA=MD:GOSUB8660:OPEN1,MDAND127,5,DR$+":("+BS$+STR$(M):GOSUB3420
  446. 4390 IFER$>"01"THENCLOSE1:RETURN
  447. 4400 INPUT#1,A$:AN=VAL(A$):IF(ST)AND64THEN4480
  448. 4410 INPUT#1,US$:IF(ST)AND64THEN4480
  449. 4420 INPUT#1,TU$:IF(ST)AND64THEN4480
  450. 4430 INPUT#1,SU$:IF(ST)AND64THEN4480
  451. 4440 IFSCTHENCLOSE1:RETURN
  452. 4450 INPUT#1,DT$:IF(ST)AND64THEN4480
  453. 4460 FORI=1TO51:INPUT#1,E$(I):IFE$(I)="\"THEN4480
  454. 4470 NEXT
  455. 4480 U=ST:GOSUB3420:IFUAND64THENCLOSE1
  456. 4490 RETURN
  457. 4500 IFBM=0THENP$="[206]O MESSAGES ON FILE.":GOSUB1480:RETURN
  458. 4510 A$="1":IFBM>20THENA$=MID$(STR$(BM-19),2)
  459. 4520 P$=F$+"[205]ESSAGE NUMBERS RANGE FROM "+A$+" TO "+MID$(STR$(BM),2)+":"
  460. 4530 GOSUB1480:P$="[211]TART SCAN WITH [205]ESSAGE #:":GOSUB1490
  461. 4540 L=3:GOSUB1630:IFCDORL$=""THENRETURN
  462. 4550 M=VAL(L$):IFM<BM-19ORM>BMORM<1THEN4510
  463. 4560 SC=1:S=0:GOSUB4380:IFER$>"01"THENSU$=""
  464. 4570 P$="[205]SG#"+MID$(STR$(M),2)+" [211]UBJ: "+SU$:GOSUB1480:IFA$=" "THENRETURN
  465. 4580 M=M+1:IFM>BMTHENRETURN
  466. 4590 GOSUB1420:IFCDTHENRETURN
  467. 4600 GOTO4560
  468. 4610 P$=F$+"[217]OUR [211]TATISTICS...."+F$:GOSUB1480
  469. 4620 P$="[206]AME          : "+U$(1):GOSUB1480
  470. 4630 P$="[217]OU ARE CALLER:"+STR$(CN):GOSUB1480
  471. 4640 P$="[212]OTAL # USERS :"+STR$(NU):GOSUB1480
  472. 4650 P$="[193]CCESS LEVEL  :"+STR$(AC):GOSUB1480:GOSUB3440
  473. 4660 P$="[196]ATE/[212]IME     : "+DA$+" "+TM$:GOSUB1480:GOSUB4800
  474. 4670 P$="[195]ONNECT [212]IME  :"+STR$(CO)+" MINS.":GOSUB1480
  475. 4680 P$="[205]EMBER #      : "+R$:GOSUB1480
  476. 4690 P$="[208]ASSWORD      : "+U$(4):GOSUB1480
  477. 4700 P$="[193]GE           : "+U$(6):GOSUB1480
  478. 4710 P$="[210]EAL [206]AME     : "+U$(7):GOSUB1480
  479. 4720 P$="[212]OTAL [213]/[204]'S   : "+U$(9):GOSUB1480
  480. 4730 P$="[212]OTAL [196]/[204]'S   : "+U$(10):GOSUB1480
  481. 4740 P$="       [[210]ATIO - "+MID$(STR$(RR),2)+":1]":GOSUB1480
  482. 4750 P$="[204]AST CALL DATE: "+U$(11):GOSUB1480
  483. 4760 P$="[212]OTAL CALLS   : "+U$(12):GOSUB1480:RETURN
  484. 4780 P$="[212]ODAY'S CALLER LIST:"+F$:GOSUB1480
  485. 4790 FI$="(T.CALLERS)":GOSUB1850:RETURN
  486. 4800 GOSUB3440:CO=ABS((LH*60+LM)-(CT*60+MI))
  487. 4810 IFLH=12ANDC2THENCO=ABS(CO-720)
  488. 4820 RETURN
  489. 4830 P$="[149][193] - [193]NNOUNCEMENTS   [196] - UP/[196]OWNLOADS    ":GOSUB1490:IFA$>""THENRETURN
  490. 4840 P$="[217] - [217]ELL FOR [211]YSOP  [198] - [198]EEDBACK        ":GOSUB1490:IFA$>""THENRETURN
  491. 4850 P$="[150][197] - [197]LECTRONIC [205]AIL [201] - SYSTEM [201]NFO     ":GOSUB1490:IFA$>""THENRETURN
  492. 4860 P$="[129][199] - [199]ENERAL FILES   [207] - [194][194][211] LIST        ":GOSUB1490:IFA$>""THENRETURN
  493. 4870 Z$=LEFT$(BD$,15):A$=Z$+LEFT$("                ",16-LEN(Z$))
  494. 4880 P$="[158][211] - [217]OUR [211]TATUS     [210] - "+A$:GOSUB1490:IFA$>""THENRETURN
  495. 4890 P$="[153][212] - [212]ODAY'S CALLERS [206] - [206]EW BAUD RATE   ":GOSUB1490:IFA$>""THENRETURN
  496. 4900 P$="[216] - E[216]IT [194][194][211]        [204] - [204]IST BOARDS     ":GOSUB1490:IFA$>""THENRETURN
  497. 4910 P$="[154][200] - SYSTEM [200]ELP     [209] - [209]UICKSCAN       ":GOSUB1490:IFA$>""THENRETURN
  498. 4920 P$="[0-9] [205]ESSAGE [194]ASES [208] - [208]ROGRAM FILES   ":GOSUB1490:IFA$>""THENRETURN
  499. 4930 P$="[146]"+DC$:GOSUB1480:RETURN
  500. 4990 PRINT"[156]"F$U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB4800
  501. 5000 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":RETURN
  502. 5010 GOSUB4990:P$=F$+"[158][205][193][201][206]:":GOSUB1490:L=1:GOSUB1630:RETURN
  503. 5020 FI$="(BBS WELC)":GOSUB1850
  504. 5022 P$=F$+"[217][207][213] [200][193][214][197] [195][207][206][206][197][195][212][197][196] [215][201][212][200]: "+BD$
  505. 5024 P$=P$+F$+"[208][210][207][199][210][193][205] [215][210][201][212][212][197][206] [194][217]     : [196].[205]C[204]AUGHLIN"
  506. 5030 P$=P$+F$+F$+"[197][206][212][197][210] [217][207][213][210] [201][196]#/[200][193][206][196][204][197]/[207][210] [206][197][215]:"+F$+"[201][196]:":GOSUB1490
  507. 5040 L=20:GOSUB1630:IFCDTHENRETURN
  508. 5050 IFVAL(L$)<>0THEN5150
  509. 5060 IFL$="NEW"ORL$="[206][197][215]"THEN5400
  510. 5070 IFL$=""THENLC=LC+.75:P$="":GOTO5030
  511. 5080 OPEN3,RF,3,RF$:FORU=1TONU:RC=U:GOSUB3380:GET#3,A$
  512. 5090 INPUT#3,A$:IFA$<>L$THEN5120
  513. 5110 CLOSE3:L$=STR$(RC):P$="":GOSUB1480:GOTO5150
  514. 5120 P$=".":GOSUB1490:NEXTU:CLOSE3:P$="":GOSUB1480
  515. 5130 P$=F$+"[197][206][212][197][210] '[206][197][215]' [201][198] [217][207][213] [200][193][214][197] [206][207] [201][196]#":GOSUB1480:P$="":LC=LC+1:IFLC<5THEN5030
  516. 5140 P$=F$+F$+"[207][206][204][217] 5 [212][210][201][197][211] [193][204][204][207][215][197][196], [211][207][210][210][217].":GOSUB1480:GOTO2780
  517. 5150 R=VAL(L$):R$=MID$(STR$(R),2):IFR<1ORR>NUTHEN5130
  518. 5160 OPEN3,RF,3,RF$
  519. 5170 RC=R:GOSUB3380
  520. 5180 GOSUB8430:CLOSE3:IFU$(1)="-DELETED-"THEN5130
  521. 5190 P$=F$+"[197][206][212][197][210] [217][207][213][210] [208][193][211][211][215][207][210][196]:"+F$+"[208][215]:":GOSUB1490
  522. 5200 L=20:EC=1:GOSUB1630:EC=0:IFCDTHENRETURN
  523. 5210 IFL$<>U$(4)THEN5130
  524. 5212 P$=F$+"[208]LEASE WAIT!  [211]EARCHING....":GOSUB1480:OPEN3,8,3,"0:(HIGH MESS)":RC=R
  525. 5214 GOSUB7980:GOSUB3390:HM$="":FORT=1TO200:GET#3,A$:IFA$=""THENA$=N$
  526. 5216 IF((ST)AND64)=0THENHM$=HM$+A$:NEXT:CLOSE3:GOSUB9300:GOTO5220
  527. 5218 CLOSE3:HM$="":FORT=1TO200:HM$=HM$+CHR$(0):NEXT
  528. 5220 IFCGTHENU$(8)="1"
  529. 5225 CG=VAL(U$(8)):GOSUB8140:EM=VAL(U$(5))
  530. 5230 GOSUB3440:LH=CT:LM=MI:LT$=TM$:LG=1:IFR=1THENSE=0
  531. 5240 IFAC=0THENP$="[217]OU ARE DENIED ACCESS.":GOSUB1480:GOTO5260
  532. 5250 FI$="(ANNOUNCE)":GOSUB1850:RETURN
  533. 5260 RETURN
  534. 5270 CN=CN+1:OPEN1,8,5,"@0:(BBS DATA),S,W":PRINT#1,CN:PRINT#1,NU:PRINT#1,Q$LC$
  535. 5275 PRINT#1,Q$LN$:PRINT#1,Q$LF$:CLOSE1
  536. 5280 GOSUB3440:P$="[196]ATE/[212]IME    : "+DA$+" "+TM$:GOSUB1480
  537. 5290 P$="[159][195]ALLER NUMBER:"+STR$(CN):GOSUB1480
  538. 5300 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,U$(1)" [204]VL-"+STR$(AC)+"[152]"
  539. 5310 PRINT#1,"[204]OG ON AT "DA$" "TM$:CLOSE1
  540. 5320 U$(12)=MID$(STR$(VAL(U$(12))+1),2)
  541. 5340 IFVAL(U$(5))<1THEN5360
  542. 5350 P$=F$+"[154]******* [217]OU HAVE MAIL WAITING! *******[152]":GOTO5370
  543. 5360 P$=F$+"[152][211]ORRY, NOTHING BUT BILLS TODAY!!"
  544. 5370 IFSV=0THENP$=P$+F$+F$+"[150]"+S2$+"[152]":GOTO5390
  545. 5380 P$=P$+F$+F$+"[156]"+S1$+"[152]"
  546. 5390 GOSUB1480:GOSUB7510:RETURN
  547. 5400 GOSUB3440:LH=CT:LM=MI:LT$=TM$
  548. 5410 P$=F$+"[217][207][213][210] [206][193][205][197] [207][210] [200][193][206][196][204][197]:"+F$+"[198][204][206]:":GOSUB1490
  549. 5420 L=20:GOSUB1630:IFCDTHENRETURN
  550. 5430 U$(1)=L$
  551. 5440 P$=F$+"[208][200][207][206][197] [206][213][205][194][197][210] ([216][216][216]-[216][216][216]-[216][216][216][216]):"+F$+"[208]#:":GOSUB1490
  552. 5450 L=12:GOSUB1630:IFCDTHENRETURN
  553. 5460 IFLEN(L$)<>12THEN5440
  554. 5470 IFMID$(L$,4,1)<>"-"ORMID$(L$,8,1)<>"-"THEN5440
  555. 5480 U$(2)=L$
  556. 5490 P$=F$+"[217][207][213][210] [193][199][197]:"+F$+":":GOSUB1490:L=3:GOSUB1630:IFCDTHENRETURN
  557. 5500 IFVAL(L$)<9ORVAL(L$)>90THEN5490
  558. 5510 U$(6)=L$
  559. 5520 P$=F$+"[217][207][213][210] [210][197][193][204] [206][193][205][197]:"+F$+"[210][206]:":GOSUB1490
  560. 5530 L=20:GOSUB1630:IFCDTHENRETURN
  561. 5540 IFL$=""THEN5520
  562. 5550 U$(7)=L$
  563. 5560 P$=F$+"[197][206][212][197][210] [217][207][213][210] [208][193][211][211][215][207][210][196]:"+F$+"[208][215]:":GOSUB1490
  564. 5570 L=15:GOSUB1630:IFCDTHENRETURN
  565. 5580 U$(4)=L$:P$=" [147]":GOSUB1490
  566. 5590 P$=" [206]AME/[200]ANDLE: "+U$(1):GOSUB1480
  567. 5600 P$="[208]HONE [206]UMBER: "+U$(2):GOSUB1480
  568. 5610 P$="    [208]ASSWORD: "+U$(4):GOSUB1480
  569. 5620 P$="         [193]GE: "+U$(6):GOSUB1480
  570. 5630 P$="   [210]EAL [206]AME: "+U$(7):GOSUB1480
  571. 5640 P$=F$+"[201]S THIS CORRECT? (Y/N):":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  572. 5650 IFL$="N"ORL$="[206]"THEN5400
  573. 5660 P$=" [147]":GOSUB1480
  574. 5670 P$="[217]OUR [208]ASSWORD IS: "+U$(4):GOSUB1480:A1=N1:A2=N2:AC=A1+256*A2
  575. 5680 U$(3)=MID$(STR$(A1+256*A2)+"     ",2,5):OPEN3,RF,3,RF$:L$="1"
  576. 5690 IFNWTHENNW=2:GOSUB6550:IFNW=3THENR$=MID$(STR$(LC),2):R=LC:NW=1:GOTO5710
  577. 5700 NU=NU+1:R$=MID$(STR$(NU),2):R=NU
  578. 5710 P$=F$+"[217]OUR MEMBER # IS: "+R$:GOSUB1480
  579. 5715 P$=F$+"[215]AIT....[211]AVING YOUR STATS.":GOSUB1480
  580. 5720 RC=R:GOSUB3380:U$(5)="0":U$(8)="0":IFCGTHENU$(8)="1"
  581. 5730 U$(9)="0":U$(10)="0":U$(11)=M$+MID$(STR$(DT),2)
  582. 5740 HM$="":FORT=1TO200:HM$=HM$+CHR$(0):NEXT
  583. 5750 U$(12)="0":GOSUB8480:CLOSE3:NT=NT+1:LG=1
  584. 5760 GOSUB3420:IFER$>"01"THENPRINTES$
  585. 5770 OPEN1,8,5,"@0:(BBS DATA),S,W":PRINT#1,CN:PRINT#1,NU:PRINT#1,Q$LC$
  586. 5775 PRINT#1,Q$LN$:PRINT#1,Q$LF$:CLOSE1
  587. 5780 FI$="(NEWUSER)":GOSUB1850:GOSUB6230
  588. 5790 P$=F$+F$+F$+"[208]RESS [210][197][212][213][210][206] TO ENTER "+BD$:GOSUB1480
  589. 5800 L=1:GOSUB1630:LC=0:RETURN
  590. 5810 P$=" [147][197]NTER ACCOUNT # OF USER.":GOSUB1480
  591. 5820 P$="[193]CCOUNT # OF CURRENT USER: "+R$:GOSUB1480
  592. 5830 P$="[214][213]:":GOSUB1490:L=3:GOSUB1630:IFCDTHENRETURN
  593. 5840 IFL$=""THENRETURN
  594. 5850 E$=L$:IFL$=R$THENFORL=1TO12:N$(L)=U$(L):NEXT:AA=AC:GOTO5870
  595. 5860 OPEN3,RF,3,RF$:RC=VAL(L$):GOSUB3380:GOSUB8440:CLOSE3
  596. 5870 P$=" [147]1 - [206]AME      : "+N$(1)+F$+"2 - [208]HONE     : "+N$(2):GOSUB1480:GOSUB8150
  597. 5880 P$="3 - [193]CCESS [204]VL:"+STR$(AA)+F$+"4 - [208]ASSWORD  : "+N$(4):GOSUB1480
  598. 5890 P$="5 - # OF [197]MAIL: "+N$(5)+F$+"6 - [193]GE       : "+N$(6):GOSUB1480
  599. 5900 P$="7 - [210]EAL NAME : "+N$(7)+F$+"8 - C/G MODE  : "+N$(8):GOSUB1480
  600. 5910 P$="9 - [212]OTAL [213]/[204] : "+N$(9)+F$+"[193] - [212]OTAL [196]/[204] : "+N$(10):GOSUB1480
  601. 5930 P$="[194] - [204]AST CALL : "+N$(11):GOSUB1480
  602. 5940 P$="[195] - # CALLS   : "+N$(12):GOSUB1480
  603. 5960 IFL=55THENL=0:PRINT#4:CLOSE4:GOTO5870
  604. 5970 P$=F$+"[215]HICH TO CHANGE:":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  605. 5980 IFL$=""ANDR$=E$THENFORL=1TO12:U$(L)=N$(L):NEXT:AC=AA:GOTO5810
  606. 5990 IFL$=""THEN5810
  607. 6000 IFL$="S"ORL$="[211]"THEN6090
  608. 6010 IFL$="P"ORL$="[208]"THENL=55:OPEN4,4,7:GOTO5870
  609. 6020 S=(ASC(L$)AND127)-64:IFS=>1ANDS<=3THENS=S+9:GOTO6060
  610. 6030 S=VAL(L$):IFS<1ORS>14THEN5870
  611. 6040 IFS=3THENGOSUB1890:N$(3)=A$:AA=A:GOTO5870
  612. 6060 P$=F$+"["+N$(S)+"]:[195]HANGE TO->":GOSUB1490
  613. 6070 L=20:GOSUB1630:IFCDTHENRETURN
  614. 6080 N$(S)=L$:GOTO5870
  615. 6090 P$=F$+"[211]AVE STATS WHERE? (DEFAULT="+E$+"):":GOSUB1490
  616. 6100 L=3:GOSUB1630:IFCDTHENRETURN
  617. 6110 IFL$<>""ANDVAL(L$)>0THENE$=L$
  618. 6120 P$=F$+"[211]AVE AT: "+E$:GOSUB1480
  619. 6130 P$="[195]ORRECT? (Y/N):":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  620. 6140 IFL$<>"Y"ANDL$<>"[217]"THEN5870
  621. 6150 OPEN3,RF,3,RF$:RC=VAL(E$):GOSUB3380
  622. 6160 GOSUB8490
  623. 6170 CLOSE3
  624. 6180 RETURN
  625. 6190 P$=" [147]":GOSUB1480
  626. 6200 P$="[197]NTER '[217]' IF YOU WISH TO LEAVE":GOSUB1480
  627. 6210 P$="[198]EEDBACK TO "+SY$+":"+F$+F$+"[198][194]:":GOSUB1490:L=1:GOSUB1630
  628. 6220 AN=0:IFL$<>"Y"ANDL$<>"[217]"ORCDTHENRETURN
  629. 6230 TU$=SY$:BS$=BR$(0,0):SU$=BS$:BA=0:SA=0:BM=BM(0,0):SM=0:MD=MD(0,0):GOSUB2130
  630. 6240 E$="":RETURN
  631. 6250 P$=" [147]"+DC$+F$+"     --**]> [197]LECTRONIC [205]AIL <[**--"+F$+DC$+F$:GOSUB1480
  632. 6260 IFEM>0THENGOSUB7510
  633. 6270 P$="[211]END MAIL? (Y/N):":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  634. 6280 IFL$<>"Y"ANDL$<>"[217]"THENRETURN
  635. 6290 P$=F$+"[212]O SEND [197]-MAIL, YOU MUST KNOW THE":GOSUB1480
  636. 6300 P$="MEMBER NUMBER OF THE PERSON TO WHOM":GOSUB1480
  637. 6310 P$="YOU ARE SENDING MAIL TO.  [201]F YOU DO":GOSUB1480
  638. 6320 P$="NOT KNOW THE MEMBER NUMBER, YOU CAN":GOSUB1480
  639. 6330 P$="SEARCH THE USERFILE AT THE PROMPT":GOSUB1480
  640. 6340 P$="BY ENTERING '[198][201][206][196]'.":GOSUB1480
  641. 6350 P$=F$+"[159][197][205]:":GOSUB1490:L=4:GOSUB1630:IFCDORL$=""THENE$="":RETURN
  642. 6360 IFL$="?"THEN6290
  643. 6370 IFL$="FIND"ORL$="[198][201][206][196]"THENGOSUB6470:GOTO6350
  644. 6380 IFVAL(L$)<1ORVAL(L$)>NUTHENP$=F$+"[206]ON-EXISTANT MEMBER #":GOSUB1480:GOTO6350
  645. 6400 C=VAL(L$):E$=L$:SM=1:GOSUB6640:IFSM=0ANDU<>76THEN6350
  646. 6410 IFSM=0ANDU=76THENRETURN
  647. 6415 IFVAL(E$)=1THENSE=SE+1
  648. 6420 BS$=E$:TU$=N$(1):SU$="[197]-MAIL":BM=VAL(N$(5)):MD=8:GOSUB2130:IFSM=0THEN6350
  649. 6430 N$(5)=MID$(STR$(BM),2):GOSUB6760:IFU=76THENRETURN
  650. 6440 P$=F$+"[211]END MORE MAIL? (Y/N):":GOSUB1490
  651. 6450 L=1:GOSUB1630:IFCDORL$<>"Y"ANDL$<>"[217]"THENE$="":RETURN
  652. 6460 GOTO6350
  653. 6470 P$=" [147]":GOSUB1480
  654. 6480 P$=DC$+F$+"    --**]>  [211]CAN  [213]SER [198]ILE  <[**--"+F$+DC$:GOSUB1480
  655. 6490 P$=F$+"[212]HERE ARE CURRENTLY"+STR$(NU)+" USERS.":GOSUB1480
  656. 6500 P$="[211]TART SCAN WITH WHICH MEMBER #?":GOSUB1480
  657. 6510 P$=F$+"[129][213][198]:":GOSUB1490:L=3:GOSUB1630:IFCDORL$=""THENRETURN
  658. 6520 P$="":GOSUB1480
  659. 6530 IFVAL(L$)<1ORVAL(L$)>NUTHENP$=F$+"[206]ON-EXISTANT MEMBER #":GOSUB1480:GOTO6510
  660. 6540 OPEN3,RF,3,RF$
  661. 6550 FORRC=VAL(L$)TONU:GOSUB3380
  662. 6560 INPUT#3,P$
  663. 6580 IFNW<>2THEN6610
  664. 6590 IFP$="-DELETED-"THENNW=3:LC=RC:RETURN
  665. 6592 GET#5,A$:IFA$=""THENGETA$
  666. 6594 IFA$=" "ORA$=CHR$(160)THENRC=NU+1:GOTO6620
  667. 6600 P$=".":GOSUB1490:GOTO6620
  668. 6610 P$=P$+"  (#"+MID$(STR$(RC),2)+")":GOSUB1480:IFA$=" "THEN6630
  669. 6620 NEXT:IFNW=2THENNW=1:RETURN
  670. 6630 CLOSE3:GOTO6490
  671. 6640 P$=F$+"[195]HECKING USER'S MAILBOX....":GOSUB1480
  672. 6650 OPEN3,RF,3,RF$:RC=C:GOSUB3380
  673. 6660 GOSUB8440
  674. 6670 GOSUB8150
  675. 6680 CLOSE3:IFVAL(N$(5))>8THENP$="[205]AILBOX FULL!":GOSUB1480:SM=0:RETURN
  676. 6690 A$=US$:IFU<>76ORRB=0THENA$=N$(1):GOTO6720
  677. 6700 IFANTHENA$="[193]NONYMOUS":GOTO6720
  678. 6710 IFRIGHT$(A$,1)<>" "THENA$=LEFT$(A$,LEN(A$)-1):GOTO6710
  679. 6720 P$=F$+"[211]END MAIL TO "+A$+"? (Y/N):":GOSUB1490
  680. 6730 L=1:GOSUB1630:IFCDTHENRETURN
  681. 6740 IFL$<>"Y"ANDL$<>"[217]"THENSM=0
  682. 6750 RETURN
  683. 6760 OPEN3,RF,3,RF$:RC=C:GOSUB3380
  684. 6770 GOSUB8490
  685. 6780 CLOSE3:RETURN
  686. 6790 IFBR=1200THENP$="[211]ORRY, NOT AT 1200.":GOSUB1480:RETURN
  687. 6800 P$=F$+"[193]CCEPTABLE [194]AUDS RATES ARE: 300-600":GOSUB1480
  688. 6810 P$="[217]OUR CURRENT BAUD RATE IS:"+STR$(BR)+".":GOSUB1480
  689. 6820 P$="[197]NTER NEW BAUD RATE, THEN CHANGE":GOSUB1480
  690. 6830 P$="YOUR TERMINAL SETTINGS.  [208]RESS RETURN":GOSUB1480
  691. 6840 P$="ONCE WHEN FINISHED.":GOSUB1480
  692. 6850 GOSUB4990:P$=F$+"[150][194][210]:":GOSUB1490:L=3:GOSUB1630:IFCDTHENRETURN
  693. 6860 IFL$=""THENRETURN
  694. 6870 IFVAL(L$)<300ORVAL(L$)>600THEN6850
  695. 6880 BR=VAL(L$)
  696. 6890 GOSUB7920
  697. 6900 L=1:GOSUB1630:IFL$<>""THEN6900
  698. 6910 RETURN
  699. 6920 P$=F$+"[208]ASSWORD:":GOSUB1490:L=39:GOSUB1630:IFCDTHENRETURN
  700. 6930 IFL$=P1$AND(A1AND32)THEN6950
  701. 6940 RETURN
  702. 6950 AA=DV:GOSUB8640
  703. 6960 P$=" [147]":GOSUB1480
  704. 6970 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB1480
  705. 6980 P$="[214] - [214]ALIDATE USER":GOSUB1480
  706. 6990 P$="[193] - [211]CAN ANY SEQ ON DISK":GOSUB1480
  707. 7000 P$="$ - [196]IRECTORY":GOSUB1480
  708. 7010 P$="@ - [196]OS COMMANDS":GOSUB1480
  709. 7020 P$="[213] - [211]CAN USER LOG":GOSUB1480
  710. 7030 P$="[212] - [212]ODAY'S CALLERS":GOSUB1480
  711. 7040 P$="# - [212]OGGLE DRIVE #"+STR$(DV)+";"+DR$:GOSUB1480
  712. 7050 P$=F$+"[210][211][205]"+MID$(STR$(DV),2)+";"+DR$+":":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  713. 7060 IFL$=""THENRETURN
  714. 7070 L$=CHR$(ASC(L$)AND127)
  715. 7080 GOSUB8410:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  716. 7090 ON-(L$="U")-2*(L$="A")-3*(L$="V")-4*(L$="$")GOSUB7760,7870,5810,7170
  717. 7100 ON-(A$="#")-2*(L$="T")GOSUB8670,7860
  718. 7110 IFL$="?"THEN6960
  719. 7120 IFL$<>"@"THEN7050
  720. 7130 P$=F$+">":GOSUB1490:L=39:GOSUB1630:IFCDTHENRETURN
  721. 7140 IFL$=""THENGOSUB3420:P$=F$+ES$:GOSUB1480:GOTO7050
  722. 7150 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  723. 7160 GOTO7050
  724. 7170 P$=F$:GOSUB1480:OPEN1,DV,0,"$"+DR$+":*"
  725. 7180 GOSUB3420:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB1480:RETURN
  726. 7190 GET#1,A$:GET#1,A$
  727. 7200 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  728. 7210 GET#1,LO$:GET#1,HI$
  729. 7220 LO$=LO$+N$:HI$=HI$+N$
  730. 7230 P$=STR$(ASC(LO$)+256*ASC(HI$))+" "
  731. 7240 GET#1,A$:IFA$=""THEN7280
  732. 7250 GET#5,Z$:IFZ$=""THENGETZ$
  733. 7260 IFZ$=" "THENCLOSE1:RETURN
  734. 7270 P$=P$+A$:GOTO7240
  735. 7280 L=8:IFECANDMID$(P$,L,1)=Q$THENL=9
  736. 7285 IFECANDMID$(P$,L,1)="("THEN7200
  737. 7290 GOSUB1480:IFA$=" "THENCLOSE1:RETURN
  738. 7300 GOTO7200
  739. 7310 P$=F$+"[211]ORRY, THE [196]OWNLOAD SECTION IS CLOSED.":GOSUB1480:RETURN
  740. 7320 GOSUB8640:DR$="0":IFA1AND32THEN7400
  741. 7330 FORT=8TODR:AA=T:GOSUB8640:IFDR%(B)AND64THENNEXT:GOTO7310
  742. 7340 IFA1AND64THEN7400
  743. 7350 P$=F$+"[211]ORRY, YOU MUST BE A VALIDATED":GOSUB1480
  744. 7360 P$="USER IN ORDER TO USE THIS SECTION":GOSUB1480
  745. 7370 P$="[212]RY CHATTING WITH "+SY$+".":GOSUB1480
  746. 7380 P$="[200]E/[211]HE MIGHT DECIDE TO RAISE YOUR":GOSUB1480
  747. 7390 P$="ACCESS LEVEL SO YOU CAN D/L.":GOSUB1480:RETURN
  748. 7400 FI$="(ST/R.UD)":DV=D6
  749. 7410 GOSUB8420:OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:FORT=1TO12
  750. 7420 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SV:PRINT#1,SY
  751. 7430 PRINT#1,SF:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LT$
  752. 7440 PRINT#1,DV:PRINT#1,NW:PRINT#1,HM$
  753. 7442 CLOSE1:POKE251,PEEK(152):DR$="0":IFDVAND128THENDR$="1"
  754. 7450 PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127"":POKE631,131:POKE198,1:NEW
  755. 7460 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO12
  756. 7470 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SV,SY,SF,HL,M$,DT,T,LT$,DV,NW
  757. 7472 HM$="":FORI=1TO200:GET#1,A$:IFA$=""THENA$=CHR$(0)
  758. 7474 HM$=HM$+A$:NEXT:CLOSE1:GOSUB9300
  759. 7480 IFT=2THENF$=CHR$(13)+CHR$(10)
  760. 7490 CG=VAL(U$(8)):GOSUB8140:EM=VAL(U$(5))
  761. 7500 NS=0:GOTO890
  762. 7510 IFVAL(U$(5))=0THENRETURN
  763. 7520 P$=F$+"[217]OU HAVE "+U$(5)+" PIECE(S) OF MAIL.":GOSUB1480
  764. 7530 P$="[210]EAD MAIL NOW? (Y/N):":GOSUB1490:L=1:GOSUB1630
  765. 7540 M=0:S=0:IFL$=""ORL$="N"ORL$="[206]"ORCDTHENRETURN
  766. 7550 GOTO7650
  767. 7560 P$=F$+"[199]ETTING YOUR MAIL....":GOSUB1480
  768. 7570 SC=0:BS$=R$:BA=0:MD=8:GOSUB4380:CLOSE1
  769. 7580 P$=" [147][205]SG#"+MID$(STR$(M),2)+F$:GOSUB1480
  770. 7590 P$="     [198]ROM:"+US$:GOSUB1480
  771. 7600 P$="[196]ATE/[212]IME:"+DT$+F$:GOSUB1480
  772. 7610 FORLC=1TO50:IFE$(LC)="\"THEN7640
  773. 7620 IFA$="/"ORA$=" "THEN7640
  774. 7630 P$=E$(LC):GOSUB1480:NEXT
  775. 7640 P$=DC$+F$+"[205]ESSAGE SENT BY: "+US$:GOSUB1480:GOSUB3370
  776. 7650 P$=F$+"[206] - [206]EXT [210] - [210]EPLY [209] - [209]UIT":GOSUB1480
  777. 7660 P$="# - [210]EAD MESSAGE NUMBER X":GOSUB1480
  778. 7670 P$=F$+"[159][210][197][205]:":GOSUB1490:L=1:GOSUB1630:IFCDORL$="Q"ORL$="[209]"THENE$="":RETURN
  779. 7680 IF(L$="N"ORL$="[206]")AND(M<EM)THENM=M+1:GOTO7560
  780. 7690 IFL$="?"THEN7650
  781. 7700 IFVAL(L$)>0ANDVAL(L$)<=EMTHENM=VAL(L$):GOTO7560
  782. 7710 IFL$<>"R"ANDL$<>"[210]"THEN7670
  783. 7720 C=AN:SM=1:GOSUB6640:IFSM=0THEN7650
  784. 7730 BS$=MID$(STR$(AN),2)
  785. 7740 TU$=N$(1):SU$="[197]-MAIL":BM=VAL(N$(5)):MD=8:GOSUB2130:IFSM=0THEN7650
  786. 7750 N$(5)=MID$(STR$(BM),2):GOSUB6760:GOTO7650
  787. 7760 FI$="(USER LOG)"
  788. 7770 OPEN1,DV,5,DR$+":"+FI$:P$="":GOSUB3420:IFER$>"01"THENCLOSE1:RETURN
  789. 7780 GET#1,A$:IF(ST)AND64THEN7830
  790. 7790 GET#5,Z$:IFZ$=""THENGETZ$
  791. 7800 IFZ$=" "ORZ$="/"THEN7830
  792. 7805 IFA$<>F$THENP$=P$+A$
  793. 7810 IFA$=F$ORLEN(P$)=39THENGOSUB1480:P$=""
  794. 7820 GOTO7780
  795. 7830 GOSUB1480:CLOSE1:P$=F$+"[211]CRATCH? (Y/N):":GOSUB1490:L=1:GOSUB1630
  796. 7840 IFL$=""OR(L$<>"Y"ANDL$<>"[217]")THENRETURN
  797. 7850 OPEN1,DV,5,"@"+DR$+":"+FI$+",S,W":PRINT#1," ":CLOSE1:RETURN
  798. 7860 GOSUB4790:GOTO7830
  799. 7870 P$=F$+"[211]CAN FILE: ":GOSUB1490:L=16:GOSUB1630
  800. 7880 FI$=L$:GOTO7770
  801. 7890 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  802. 7900 GOSUB7890:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  803. 7910 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB7890:RETURN
  804. 7920 CS=1022730:POKE659,6:IFBR=1200THENPOKE659,8
  805. 7925 IFBR=2400THENPOKE659,10
  806. 7930 RC=CS/BR:GOSUB7970:POKE51968,LO:POKE51969,HI
  807. 7940 IFBR=1200THENRC=(CS/BR)*.966:GOSUB7970
  808. 7945 IFBR=2400THENRC=(CS/BR)*.9024:GOSUB7970
  809. 7950 POKE665,LO:POKE666,HI:RC=((CS/BR)/2)-100:GOSUB7970
  810. 7960 POKE661,LO:POKE662,HI:RETURN
  811. 7970 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  812. 7980 GOSUB7970:R1=LO:R2=HI:RETURN
  813. 7990 POKEB2,231:POKEB1,161:POKEB1,128:POKEB4,48
  814. 8000 IFBR<>1200THENPOKEB4,49:POKEB4,39:POKEB2,230:RETURN
  815. 8010 POKEB4,48:POKEB4,49:FORX=1TO2000:NEXT:POKEB4,55:POKEB2,230:RETURN
  816. 8020 X=0:FORI=1TO30:T=PEEK(B1)AND1:PRINTT;:IFT=0THENX=X+1
  817. 8030 NEXT:PRINT:IFX>5THENBR=1200:GOSUB7920:GOSUB8010
  818. 8040 RETURN
  819. 8050 IFGF=0THENP$=F$+"[206]O FILES AVAILABLE!":GOSUB1480:RETURN
  820. 8060 P$=" [147]"+DC$+F$+"       --**> [199]ENERAL [198]ILES <**--"+F$+DC$+F$:GOSUB1480
  821. 8070 P$="":GOSUB1480:FORLC=1TOGF:P$=RIGHT$(STR$(LC),2)+". "+GF$(LC):GOSUB1480:NEXT
  822. 8080 P$=F$+"[195]HOICE 1-"+MID$(STR$(GF),2)+", [210][197][212][213][210][206] ABORTS.":GOSUB1480
  823. 8090 P$=F$+"[199][198]:":GOSUB1490
  824. 8100 L=2:GOSUB1630:IFCDORL$=""THENRETURN
  825. 8110 IFL$="?"THEN8070
  826. 8120 T=VAL(L$):IFT<1ORT>GFTHENP$=F$+"[210]EALLY?":GOSUB1480:GOTO8080
  827. 8130 FI$="("+GF$(T):GOSUB1850:GOTO8070
  828. 8140 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-256*A2:RETURN
  829. 8150 AA=VAL(N$(3)):RETURN
  830. 8160 P$=F$+"[195]HANGE YOUR PASSWORD (Y/N):":GOSUB1490
  831. 8170 L=1:GOSUB1630:IFCDTHENRETURN
  832. 8180 IFL$<>"Y"ANDL$<>"[217]"THENRETURN
  833. 8190 P$="[207]LD [208]ASSWORD: ":GOSUB1490:L=20:GOSUB1630:IFCDTHENRETURN
  834. 8200 IFL$<>U$(4)THENP$="[206]OPE!":GOSUB1480:RETURN
  835. 8210 P$="[206]EW [208]ASSWORD: ":GOSUB1490:L=20:GOSUB1630:IFCDTHENRETURN
  836. 8220 IFL$=""THEN8200
  837. 8230 U$(4)=L$:RETURN
  838. 8240 CG=1-CG:U$(8)=MID$(STR$(CG),2):P$=F$+"[195]OLOR [199]RAPHICS [205]ODE."
  839. 8250 IFCG=0THENP$=F$+"[193][211][195][201][201] [205]ODE."
  840. 8260 GOSUB1480:RETURN
  841. 8410 IFLEN(UL$)<230THENRETURN
  842. 8420 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  843. 8430 GOSUB8440:FORI=1TO12:U$(I)=N$(I):NEXT:RETURN
  844. 8440 FORI=1TO12:INPUT#3,N$(I):NEXT:RETURN
  845. 8480 FORI=1TO12:N$(I)=U$(I):NEXT
  846. 8490 N$(0)="":FORI=1TO12:N$(0)=N$(0)+Q$+N$(I)+CHR$(13):NEXT
  847. 8500 PRINT#3,N$(0):RC=1:GOSUB3380:RETURN
  848. 8530 RETURN
  849. 8540 IFNB=0THEN1130
  850. 8550 P$=F$+"[[195]TRL [211]] - [208]AUSE [/] - [193]BORT"+F$:GOSUB1480:QT=0
  851. 8555 M1=0:M2=NB(QT)-1:MC=1:IFNB(QT)=0THEN8560
  852. 8557 P$="[217]OU ARE NOW ENTERING [211]UB-[211]ET #"+MID$(STR$(QT),2)+"."+F$:GOSUB1480
  853. 8560 FORQS=M1TOM2:L$="":T=QS:I=QT:GOSUB4120:IFSCTHEN8630
  854. 8565 BM=BM(QT,QS):BS$=BR$(QT,QS):MD=MD(QT,QS):IFBM=0THEN8630
  855. 8570 L=((QT*10)+QS)*2+1
  856. 8580 S=1:M1=ASC(MID$(HM$,L,1)+N$)+256*ASC(MID$(HM$,L+1,1)+N$)+1:IFM1>BMTHEN8630
  857. 8585 M2=BM:IFM1<BM-19THENM1=BM-19
  858. 8590 IFM1-1=BMTHEN8630
  859. 8600 GOSUB4350:RC=M-1:GOSUB7970:L$=CHR$(LO)+CHR$(HI)
  860. 8610 HM$=LEFT$(HM$,L-1)+L$+RIGHT$(HM$,199-L)
  861. 8620 IFA$="/"THENQS=NB(QT)+1:QT=10
  862. 8630 NEXT:IFMC=2THEN8634
  863. 8632 QT=QT+1:IFQT<10THEN8555
  864. 8634 QS=0:MC=0:RETURN
  865. 8640 B=AA-8:IFB<0THENB=0
  866. 8650 AA=-((DR%(B)AND128)=128):DR$=MID$(STR$(AA),2):RETURN
  867. 8660 GOSUB8640:AA=-((MDAND128)=128):DR$=MID$(STR$(AA),2):RETURN
  868. 8670 IFDR$="0"THENAA=DV:GOSUB8640:IFDR$="1"THENRETURN
  869. 8680 DV=DV+1:IFDV>15THENDV=8
  870. 8690 FORL=0TO(DR-8):IFDV<>(DR%(L)AND63)THENNEXT:GOTO8680
  871. 8700 IFA1AND32ORSYTHEN8720
  872. 8710 AA=DV:GOSUB8640:IFDR%(B)AND64THEN8680
  873. 8720 AA=DV:GOSUB8640:DR$="0":RETURN
  874. 8730 ON(MT%-1)GOTO8740,8750,8780,8790,7900,7900
  875. 8740 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  876. 8750 IFSYTHENRETURN
  877. 8755 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT:PRINT#5,"[193][212][200]"
  878. 8760 FORT=1TO2000:NEXT:PRINT#5,"[193][212][216]1[197]0[205]1[209]0[214]0":RETURN
  879. 8780 POKEB2,38:POKEB1,38:RETURN
  880. 8790 POKEB1,PEEK(B1)OR32:RETURN
  881. 8800 ON(MT%-1)GOTO8790,8530,8810,8740:GOSUB7990:GOTO8020
  882. 8810 POKEB1,0:POKEB2,38:RETURN
  883. 8820 IFLEN(F$)=2THENF$=CHR$(13):P$=F$+"[204]INEFEEDS [207][198][198].":GOTO8840
  884. 8830 F$=CHR$(13)+CHR$(10):P$=F$+"[204]INEFEEDS [207][206]."
  885. 8840 GOSUB1480:RETURN
  886. 8880 IFPF=0THENP$=F$+"[206]O [208]ROGRAM [198]ILES AVAILABLE.":GOSUB1480:RETURN
  887. 8885 GOSUB4990:P$=F$+"[149][208][198]:":GOSUB1490:L=1:GOSUB1630
  888. 8890 IFCDORL$="Q"ORL$="[209]"THENE$="":RETURN
  889. 8900 E$=CHR$(ASC(L$+N$)AND127):GOSUB8410:UL$=UL$+"[208]FILES-"+E$+CHR$(13)
  890. 8910 IFE$="L"THEN8990
  891. 8920 IFE$="R"THEN9020
  892. 8930 IFE$<>"?"THEN8885
  893. 8940 P$=" [147]"+DC$+F$+"     --**[[< [208]ROGRAM [198]ILES >]]**--"+F$+DC$+F$:GOSUB1480
  894. 8950 P$="[204] - [204]IST [208]ROGRAM [198]ILES":GOSUB1480
  895. 8960 P$="[210] - [210]UN A [208]ROGRAM [198]ILE":GOSUB1480
  896. 8970 P$="[209] - [209]UIT TO [205]AIN":GOSUB1480
  897. 8980 P$="? - [212]HIS MENU":GOSUB1480:GOTO8885
  898. 8990 P$=" [147]"+DC$:GOSUB1480
  899. 9000 FORT=1TOPF:P$=MID$(STR$(T),(-(T>9)+1))+". "+PF$(T):GOSUB1480:NEXT
  900. 9010 P$=DC$:GOSUB1480:GOTO8885
  901. 9020 P$=F$+"[210]UN [208]ROGRAM (1-"+MID$(STR$(PF),2)+"): ":GOSUB1490:L=2:GOSUB1630
  902. 9030 IFCDTHENRETURN
  903. 9040 IFL$=""ORVAL(L$)<1ORVAL(L$)>PFTHEN8885
  904. 9050 FI$="("+PF$(VAL(L$)):DV=PD(VAL(L$)):P$=F$+"[208]LEASE WAIT! [204]OADING [205]ODULE."+F$
  905. 9055 GOSUB1480:GOTO7410
  906. 9060 P$=F$+"[205]OVE TO [211]UB-[211]ET #(0-9):":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  907. 9070 I=VAL(L$):IFI<0ORI>9THENRETURN
  908. 9080 IFNB(I)=0THENSC=1:RETURN
  909. 9090 MC=1:FORT=0TO9:GOSUB4120:IFSCTHENNEXT
  910. 9100 MC=0:RETURN
  911. 9110 GOSUB4990:P$=F$+"[156][211][212][193][212][211]:":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  912. 9120 IFL$=""THEN9110
  913. 9130 E$=CHR$(ASC(L$)AND127):IFE$="Q"THENE$="Q":RETURN
  914. 9135 GOSUB8410:UL$=UL$+"[211][212][193][212][211] - "+E$+F$
  915. 9140 ON-(E$="L")-2*(E$="S")-3*(E$="P")-4*(E$="U")GOSUB8820,4610,8160,6470
  916. 9145 IFE$="G"THENGOSUB8240
  917. 9150 IFE$="E"THENGOSUB9210
  918. 9160 IFE$<>"?"THEN9110
  919. 9170 P$="[147] "+DC$+F$+"       --++*[ [211]TATISTICS ]*++--"+F$+DC$+F$:GOSUB1480
  920. 9180 P$="[156][204] - [212]OGGLE [204]INEFEEDS  [211] - [217]OUR [211]TATS":GOSUB1480
  921. 9190 P$="[208] - [195]HANGE [208]ASSWORD   [213] - [214]IEW [213]SERS":GOSUB1480
  922. 9200 P$="[197] - [197]DIT [217]OUR [211]TATS   ? - [212]HIS [205]ENU":GOSUB1480
  923. 9205 P$="[158][209] - [210]ETURN TO [205]AIN    [199] - [195]OLOR/[193][211][195][201][201]":GOSUB1480:GOTO9110
  924. 9210 P$=F$+"[158]1 - [206]AME/[200]ANDLE   : "+U$(1):GOSUB1480
  925. 9220 P$="2 - [217]OUR [193]GE      : "+U$(6):GOSUB1480
  926. 9230 P$="3 - [217]OUR [210]EAL [206]AME: "+U$(7):GOSUB1480
  927. 9240 P$=F$+"[155][197]DIT WHICH? (1-3):":GOSUB1490:L=1:GOSUB1630:IFCDTHENRETURN
  928. 9250 C=VAL(L$):IFC<1ORC>3THENRETURN
  929. 9260 IFC>1THENC=C+4
  930. 9270 P$=F$+"[152][195]HANGE TO: ":GOSUB1490:L=20:GOSUB1630:IFCDTHENRETURN
  931. 9280 IFC=6ANDVAL(L$)<5ORVAL(L$)>99THEN9210
  932. 9285 GOSUB8410:UL$=UL$+U$(C)+" = "+L$+F$
  933. 9290 U$(C)=L$:RETURN
  934. 9300 LC=1:FORT=0TO9:FORI=0TO9:LO$=MID$(HM$,LC,1):HI$=MID$(HM$,LC+1,1):LC=LC+2
  935. 9310 PRINTASC(LO$)+256*ASC(HI$);:NEXT:NEXT:RETURN
  936.